Καλώς ήρθες στο forum μας.
γενικά θα σου πρότεινα ότι όσο αφορά το θέμα data access για window(φαντάζομαι ότι μιλάμε για window apps, σωστα?) εφαρμογές με το VS 2008 και την VB, να δεις αυτά τα πολύ ωραία
videos από την Beth Massi. Χρησιμοποιεί τον SQL Server σαν backend, και καλό είναι να χρησιμοποιείς αυτόν σαν backend για τα δεδομένα σου.
Θα πρέπει σίγουρα μιας και είσαι στην αρχή να κάνεις τα εξής:
1) Να σου είναι πολύ οικείο το περιβάλλον εργασίας. Δηλαδή να δεις αναλυτικά όλα τα features του VS 2008.
2) Να αποκτήσεις καλή γνώση της γλώσσας VB.
3) Να δώσεις έμφαση στους data-access μηχανισμούς για να συνδέεσαι με τον σωστό τρόπο στην βάση σου.
τώρα αυτό που ζητάς ... μία πρώτη προσέγγιση είναι η παρακάτω. εσύ απλά άλλαξε το όνομα του αρχείου της βάσης με το δικό σου και το όνομα του πίνακα με το όνομα του πίνακα σου.
Για να κρατήσω τα πράγματα απλά, ο πίνακας είχε απλά ένα πεδίο primary key και ένα πεδίο "myname" με data type string.
στην αρχή του αρχείου form1.vb (αν έχεις αφήσει την φόρμα με το default name)
και πριν από οτιδήποτε άλλο βάλε
Imports System.Data.OleDb1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Dim myConnection As OleDbConnection
Dim myInsertQuery As String
Dim myCommand As OleDbCommand
Dim myConnectionString As String
myConnectionString = ""
myConnectionString = "Provider =Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\fofo\Documents\db1.mdb"
myConnection = New OleDbConnection(myConnectionString)
myInsertQuery = "INSERT INTO mytable (myname) VALUES ('" & TextBox1.Text & "')"
myCommand = New OleDbCommand(myInsertQuery)
myCommand.Connection = myConnection
Try
myConnection.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show("Bravo")
Catch ex As ApplicationException
MessageBox.Show(ex.Message.ToString())
End Try
myConnection.Close() |
Νικόλαος Καντζέλης
BSc, MSc, MCAS, MCPD, MCITP, MCTS,MCP, MCT